home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #1 / Ham Radio 2000.iso / ham2000 / misc / dspice0s / getcje.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-11-22  |  798 b   |  34 lines
  1. /* getcje.f -- translated by f2c (version of 3 February 1990  3:36:42).
  2.    You must link the resulting object file with the libraries:
  3.     -lF77 -lI77 -lm -lc   (in that order)
  4. */
  5.  
  6. #include "f2c.h"
  7.  
  8. /* Common Block Declarations */
  9.  
  10. struct {
  11.     integer maxtim, itime, icost;
  12. } cje_;
  13.  
  14. #define cje_1 cje_
  15.  
  16. /*<       subroutine getcje >*/
  17. /* Subroutine */ int getcje_()
  18. {
  19.     static doublereal xtime;
  20.     extern /* Subroutine */ int second_();
  21.  
  22. /*<       implicit double precision (a-h,o-z) >*/
  23. /* spice version 2g.6  sccsid=cje 3/15/83 */
  24. /*<       common /cje/ maxtim,itime,icost >*/
  25. /*<       call second(xtime) >*/
  26.     second_(&xtime);
  27. /*<       itime=xtime >*/
  28.     cje_1.itime = (integer) xtime;
  29. /*<       return >*/
  30.     return 0;
  31. /*<       end >*/
  32. } /* getcje_ */
  33.  
  34.